home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / c_wndw.arc / COLOR.C < prev    next >
Encoding:
Text File  |  1990-01-28  |  1.1 KB  |  38 lines
  1. /*    Copr. Marietta Systems, Inc 1987
  2. *    All rights reserved
  3. */
  4. #include "mtest.h"
  5. /*
  6. */
  7. void set_wndw(just, atb, border)
  8. enum _JUST just;
  9. enum ATTRIB atb;
  10. int border;{
  11.     if (W_NUM >= _WINDW) return;
  12.     WINDOW[W_NUM + 1].P = (0X3 & (int)just) | ((0X7 & (int)atb) << 2)
  13.         | ((0X03 & border) << 5);  /* set special widow effect */
  14.     }
  15. /*
  16. */
  17. void main() {
  18. int z, x;
  19. CLR_TONE = 0; /* Suppress Marietta Systems message */
  20. clr_scrn("Test the appearance of colors");
  21. for (x = TOP_LINE + 3, z = 0 ; ; x += 3){
  22.     display("LOW low  ", 1, 2, low);
  23.     display("HIGH high ", 0, 0, high);
  24.     display("Reverse  ", 0, 0, reverse);
  25.     display(" Blink    ", 0, 0, blink);
  26.     display("ALT Low  ", 2, 2, alt_low);
  27.     display("ALT High ", 0, 0, alt_high);
  28.     display("ALT Reverse ", 0, 0, alt_reverse);
  29.     display(" Blank  ", 0, 0, blank);
  30.     if (z == _COLOR) break;
  31.     z = mk_wndw(x , x, x + 3, x + 40, "Low window head");
  32.       set_wndw((enum _JUST)z - 1, (enum ATTRIB)z - 1, z);  
  33.     idleloop(36);
  34.     }
  35. disp_err("Press any key to finish", 1);
  36. read_kb();
  37. goodbye(0);
  38. }